home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / GoldED / Install < prev    next >
Text File  |  1999-07-06  |  65KB  |  1,849 lines

  1. ; $VER: GoldED Install 4, Copyright ©1999 Dietmar Eilert
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4.  
  5. ; ------------------------------- Set run mode ---------------------------------
  6.  
  7. ; disable script debug mode
  8.  
  9. (set golded_install_debug 0)
  10.  
  11. ; ------------------------------ English strings -------------------------------
  12.  
  13. (if (not (= @language "deutsch"))
  14.  
  15.     (
  16.         (set #golded_badkick "Sorry, this package requires OS v2.04 or better.")
  17.  
  18.         (set #golded_oemerr "This update should not be installed over the unregistered OEM version you are using. Return the registration card and install your personal keyfile before you proceed.\n\nYou may continue installation at this point without registration. However, the update will then install as restricted trial version only.")
  19.  
  20.         (set #golded_warn_userstartup "WARNING: S:USER-STARTUP MISSING")
  21.  
  22.         (set #golded_error "Some error has occurred. Please inform a GoldED support site (e.g. dietmar@tomate.tng.oche.de) AFTER having tried a different Installer release: 1.24 is known to work fine.\n\nThe following information is required: error code (above), last error message, the percentage done (window title) and your log file. If available: a SnoopDos report. Thank you !")
  23.  
  24.         (set #golded_assign_found "GOLDED installation detected ...")
  25.  
  26.         (set #golded_assign_found_help
  27.  
  28.             (cat
  29.  
  30.                 "INSTALL NEW:\n\n"
  31.  
  32.                 "Install to a directory of your choice. Old GoldED installations are NOT removed if you install to a new directory. Your old files are overwritten if you install over an existing GoldED installation (backups are made if requested).\n\n"
  33.  
  34.                 "UPDATE EXISTING GOLDED:\n\n"
  35.  
  36.                 "You won't be asked for directories: Directories of your previous installation are used. Existing files are overwritten (backups are made if requested).\n\n"
  37.  
  38.                 "REMOVE GOLDED:\n\n"
  39.  
  40.                 "All files and drawers created by a former GoldED installation are removed. Your own files are removed, too, if placed in one of GoldED's drawers."
  41.             )
  42.         )
  43.  
  44.         (set #golded_new    "Install new")
  45.         (set #golded_update "Update existing GoldED")
  46.         (set #golded_remove "Remove GoldED from your system")
  47.  
  48.         (set #golded_ask_amount "Please choose the installation mode:")
  49.  
  50.         (set #golded_ask_amount_help "Affects the amount of data written to your disk. Please note that a minimum installation over an existing full installation will convert the full installation to the minimum installation (backups of existing files are created if requested).")
  51.  
  52.         (set #golded_ask_amount_standard "Complete installation (2.6 MB)")
  53.         (set #golded_ask_amount_user     "User defined installation")
  54.         (set #golded_ask_amount_minimum  "Minimum installation (640 K)")
  55.  
  56.         (set #golded_remove_ged "Remove GoldED assign ?")
  57.         (set #golded_remove_hs  "Remove HiSpeed assign ?")
  58.         (set #golded_remove_ed  "Remove quickstarter access ?")
  59.         (set #golded_remove_gmk "Remove GUIMake assign ?")
  60.  
  61.         (set #golded_must_remove "You should have this assign/reference removed !")
  62.  
  63.         (set #golded_removed "; (removed)")
  64.  
  65.         (set #golded_lharc     "Extracting data (can take a few minutes)")
  66.         (set #golded_lharcfail "Couldn't extract files - check free disk space")
  67.  
  68.         (set #golded_installing_files "Installing files ...")
  69.         (set #golded_prepare_install  "Preparing installation ...")
  70.  
  71.         (set #golded_backup_mode "Choose a backup strategy for your old GoldED installation.")
  72.  
  73.         (set #golded_backup_mode_help "Determines how old files are handled before they are overwritten by new files or before they are deleted (if considered obsolete).")
  74.  
  75.         (set #golded_backup_mode_none     "No backups")
  76.         (set #golded_backup_mode_selected "Backup presets & macros")
  77.         (set #golded_backup_mode_all      "Backup all files")
  78.  
  79.         (set #golded_pref_icons "Select preferred icon style (WB icons):")
  80.  
  81.         (set #golded_medres " med-res icons (pixel ratio 1:2)")
  82.         (set #golded_hires  " hi-res  icons (pixel ratio 1:1)")
  83.  
  84.         (set #golded_pref_icons_help
  85.  
  86.             (cat
  87.  
  88.                 "Select med-res if the pixel ratio of your preferred screen resolution is approx. 1:2 (e.g.640*200).\n\n"
  89.  
  90.                 "Select HiRes if the pixel ratio of your preferred screen resolution is approx. 1:1 (eg. 640*400)."
  91.             )
  92.         )
  93.  
  94.         (set #golded_images_style "How many colors should GoldED use to render images ?")
  95.  
  96.         (set #golded_images_4 "4  colors")
  97.         (set #golded_images_8 "8+ colors")
  98.  
  99.         (set #golded_images_help "Both styles can be used on all screens. The 4 color style has been optimized for 4-color screens. The 8+ style has been optimized for screens with eight or more colors.")
  100.  
  101.         (set #golded_where "Select a path for the installation. The drawer 'GoldED' is created in the directory you select:")
  102.  
  103.         (set #golded_where_help "Simply select a directory (a root directory is fine, too). The directory 'GoldED' is created in the path you specify. The GoldED directory is used to store GoldED and several support files/tools.")
  104.  
  105.         (set #golded_bad_path "Sorry, can't install to RAM disk")
  106.  
  107.         (set #golded_drive_space "This installation requires at least 5 MB free disk space. Please make this space available and start again.")
  108.  
  109.         (set #golded_gold_lib "Installation of golded.library ...")
  110.  
  111.         (set #golded_gold_lib_help "This library is required by the demo version only. Registered users receive a keyfile instead.")
  112.  
  113.         (set #golded_select_optional "Choose the GoldED components you would like to have installed. Installed components are removed if unchecked.")
  114.  
  115.         (set #golded_select_optional_help
  116.  
  117.             (cat
  118.  
  119.                 "You shouldn't disable any of these components:\n\n"
  120.  
  121.                 "SYNTAX PARSERS (88 K)\n\n"
  122.  
  123.                 "A selection of syntax parsers (responsible for color-coded text: e-mail, source codes, ...)\n\n"
  124.  
  125.                 "HISPEED (325 K)\n\n"
  126.  
  127.                 "Printing utility for Laser printers, DeskJet printers and other PCL printers.\n\n"
  128.  
  129.                 "You may disable any of these components without affecting the performance of GoldED:\n\n"
  130.  
  131.                 "APPICON STARTER (6 K)\n\n"
  132.  
  133.                 "Adds a drag & drop icon to your workbench. Files dropped over the icon are sent to GoldED.\n\n"
  134.  
  135.                 "RECOVER TOOL (6 K)\n\n"
  136.  
  137.                 "Helps you to restore a text lost during a system crash.\n\n"
  138.  
  139.                 "ORDER TOOL (22 K)\n\n"
  140.  
  141.                 "Program to print the GoldED order form.\n\n"
  142.  
  143.                 "API CLIENTS (21 K)\n\n"
  144.  
  145.                 "Applets for GoldED (examples)\n\n"
  146.  
  147.                 "DEVELOPER/SOURCECODES (456 K)\n\n"
  148.  
  149.                 "Developer material (sourcecodes, syntax scanner examples, QuickStarter, ...).\n\n"
  150.  
  151.                 "MANUAL (300 - 358 K)\n\n"
  152.  
  153.                 "GoldED manual (several languages). AmigaGuide format. Menu help is not available if you don't install a manual written in the same language you choose for GoldED's menu.\n\n"
  154.  
  155.                 "QUICKSTARTER (5 K)\n\n"
  156.  
  157.                 "GoldED frontend: GoldED activator. Can start the editor quickly, detach it from a shell window, etc.\n\n"
  158.  
  159.                 "UNLOCK (1 K)\n\n"
  160.  
  161.                 "Utility to unlock GoldED's user interface if a faulty macro quits without unlocking GoldED.\n\n"
  162.  
  163.                 "HISTORY (15 K)\n\n"
  164.  
  165.                 "Description of recent changes.\n\n"
  166.             )
  167.         )
  168.  
  169.         (set #golded_select_presets      "Presets"         )
  170.         (set #golded_select_parsers      "Syntax parsers"  )
  171.         (set #golded_select_hispeed      "HiSpeed"         )
  172.         (set #golded_select_appicon      "AppIcon starter" )
  173.         (set #golded_select_recover      "Recover utility" )
  174.         (set #golded_select_order        "Order program"   )
  175.         (set #golded_select_api          "API clients"     )
  176.         (set #golded_select_sources      "Sourcecodes"     )
  177.         (set #golded_select_manual_e     "Manual (English)")
  178.         (set #golded_select_manual_d     "Manual (German)" )
  179.         (set #golded_select_quickstarter "QickStarter"     )
  180.         (set #golded_select_unlock       "UnLock utility"  )
  181.         (set #golded_select_history      "History"         )
  182.  
  183.         (set #golded_update_keyfile "You already own a GoldED keyfile. Overwrite your old keyfile with the new one ?")
  184.  
  185.         (set #golded_update_keyfile_help "Please consider that unregistered OEM keyfiles can not be used with updates and service packs: don't install an unregistered OEM keyfile over a registered keyfile. We suggest that you backup your old keyfile before your proceed.")
  186.  
  187.         (set #golded_update_keyfile_overwrite "Overwrite old keyfile")
  188.         (set #golded_update_keyfile_keep "Keep old keyfile")
  189.  
  190.         (set #golded_updating_icons "Updating icons ...")
  191.  
  192.         (set #golded_what_manuals "What manuals do you want to have installed ?")
  193.  
  194.         (set #golded_what_manuals_help "Each manual (ie. AmigaGuide file) consumes about 300K disk space.")
  195.  
  196.         (set #golded_add_ged_assign "Add GoldED assign to user-startup ?")
  197.  
  198.         (set #golded_add_ged_assign_help "GoldED needs this assign to find its files (libraries, presets, macros).")
  199.  
  200.         (set #golded_quickname "Choose a name for the QuickStarter:")
  201.  
  202.         (set #golded_quickname_help
  203.  
  204.             (cat
  205.  
  206.                 "The QuickStarter is a small (5 KB) GoldED frontend. You can use it as if it were a real editor. For example you can type 'ed letter' to edit the file 'letter' if the QuickStarter is named 'ed'. The big advantage of a QuickStarter is its ability to pass a new job to a runnning instance of GoldED. Additionally, it helps you to start GoldED from any directory or to detach GoldED from a shell without having to use the RUN command.\n\n"
  207.  
  208.                 "The default name is 'ED'. Feel free to choose any name you like. Personally, I prefer to use 'ED' (replacing the original ED)."
  209.             )
  210.         )
  211.  
  212.         (set #golded_place_quick "Select a directory for the QuickStarter (you should select a valid command directory):")
  213.  
  214.         (set #golded_place_quick_help
  215.  
  216.             (cat
  217.  
  218.                 "You should select one of these directories if you want to run the editor simply by typing its name, no matter what your current path is:\n\n"
  219.  
  220.                 "SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM\n\n"
  221.  
  222.                 "If you choose ED as default name, you must either place the quick starter into c: or delete the old ED from c: to prevent unpredictable behaviour."
  223.             )
  224.         )
  225.  
  226.         (set #golded_quick_resident "Make QuickStarter resident ?")
  227.  
  228.         (set #golded_quick_resident_help "We recommend to make the QuickStarter (5 KB) resident - it will start faster.")
  229.  
  230.         (set #golded_saving_files "Creating backups (golded:obsolete)")
  231.  
  232.         (set #golded_what_menu "Choose menu language:")
  233.  
  234.         (set #golded_what_menu_help "GoldED is localized and uses the locale library of OS 3 to display requester text in the language choosen by the user. Menus are not part of the editor and not localized. However, the user may choose from different menu translations shipped with GoldED.")
  235.  
  236.         (set #golded_what_contextmenu "Choose context menu language:")
  237.  
  238.         (set #golded_screen "Choose default screen resolution:")
  239.  
  240.         (set #golded_screen_help "Decide for a default screen mode to be used when the editor is started for the first time. We suggest to use a custom screen to make GoldED run faster and look better.")
  241.  
  242.         (set #golded_screen_wb     "Workbench screen")
  243.         (set #golded_screen_ntsc_i "NTSC interlaced (640*400)")
  244.         (set #golded_screen_pal_i  "PAL  interlaced (640*512)")
  245.  
  246.         (set #golded_look_feel "Look & feel")
  247.  
  248.         (set #golded_look_feel_help "Suggestion: use a two-colors mode if your Amiga is slow (68000), a four colors mode for 68020 and 68030 models (e.g. A1200) and more colors if you own a fast Amiga (68040/68060).")
  249.  
  250.         (set #golded_mode_blue     "Blue     (2  colors)")
  251.         (set #golded_mode_stone    "Modern   (4  colors)")
  252.         (set #golded_mode_desktop  "Desktop  (8  colors)")
  253.         (set #golded_mode_designer "Designer (16 colors)")
  254.  
  255.         (set #golded_what_proglang "Select preferred programming language:")
  256.  
  257.         (set #golded_what_proglang_other "other")
  258.         (set #golded_what_proglang_none  "none" )
  259.  
  260.         (set #golded_what_proglang_help "This setting affects installation of additional language-related features (e.g. syntax parsers). All files are installed but only support for the language you choose know is made part of your default configuration.")
  261.  
  262.         (set #golded_install_reqtools "Install Reqtools library ?")
  263.  
  264.         (set #golded_install_reqtools_help "Reqtools ©1991-1996 Nico François. GoldED will not start if the Reqtools requester library is missing.")
  265.  
  266.         (set #golded_install_presets "Installation of presets...")
  267.  
  268.         (set #golded_hs_assign "Add HiSpeed assign to user-startup ?")
  269.  
  270.         (set #golded_hs_assign_help "A HISPEED: assign is required if you want to run HiSpeed without having to worry about the current path (GoldED won't find HiSpeed if the assign is missing). HiSpeed is a PCL printing program for Laser/DeskJet printers.")
  271.  
  272.         (set #golded_removing_temp_files "Removing temporary files ...")
  273.  
  274.         (set #golded_complete "Installation complete.")
  275.  
  276.         (set #install_presets "Install standard presets ?")
  277.  
  278.         (set #install_presets_menu     "Menu"    )
  279.         (set #install_presets_display  "Display" )
  280.         (set #install_presets_keyboard "Keyboard")
  281.         (set #install_presets_toolbar  "Toolbar" )
  282.         (set #install_presets_mouse    "Mouse"   )
  283.         (set #install_presets_all      "All"     )
  284.  
  285.         (set #install_presets_help
  286.  
  287.             (cat
  288.  
  289.                 "Standard configurations for menus, keyboard, etc. are shipped with GoldED. These configurations are not required if you update your existing GoldED installation - you may continue using your old configuration. However, you will not benefit from updated material (e.g new menu translations) if you skip installation of standard presets.\n\n"
  290.  
  291.                 "We recommend that you do not name your own presets standard. so that standard presets can be reinstalled safely every time you update GoldED."
  292.             )
  293.         )
  294.     )
  295. )
  296.  
  297. ; -------------------------------- German strings ------------------------------
  298.  
  299. (if (= @language "deutsch")
  300.  
  301.     (
  302.         (set #golded_badkick "Sorry, dieses Paket benötigt mind. OS2.04.")
  303.  
  304.         (set #golded_oemerr "Dieses Update sollte nicht über die von Ihnen verwendete unregistrierte OEM-Version installiert werden. Schicken Sie bitte Ihre Registrierkarte an unseren Support und installieren Sie ein persönliche Keyfile, bevor Sie fortfahren. Sie können mit der Installation an dieser Stelle auch ohne Registrierung fortfahren, das Update wird dann aber nur als eingeschränkte Prüfversion installiert.")
  305.  
  306.         (set #golded_warn_userstartup "WARNUNG: S:USER-STARTUP NICHT GEFUNDEN")
  307.  
  308.         (set #golded_error "Ein Fehler ist aufgetreten. Bitte informieren Sie den Support (dietmar@tomate.tng.oche.de) NACHDEM Sie die Intallation mit einer anderen InstallerVersion (Empfehlung: 1.24) wiederholt haben. Die folgende Information wird benötigt: FehlerCode (s.o.), Fehler-Text, abgearbeiteter Prozentsatz (s. Fenstertitel) und die Log-Datei. Falls vorhanden: ein SnoopDos-Report. Danke !")
  309.  
  310.         (set #golded_assign_found "GoldED-Installation entdeckt ...")
  311.  
  312.         (set #golded_assign_found_help
  313.  
  314.             (cat
  315.  
  316.                 "NEU INSTALLIEREN\n\n"
  317.  
  318.                 "Installiert GoldED in ein Verzeichnis Ihrer Wahl. Eine vorhandene GoldED-Installation wird NICHT entfernt, wenn Sie in ein anderes Verzeichnis installieren. Bei Installation in ein vorhandenes GoldED-Verzeichnis werden vorhandene Dateien dagegen überschrieben (Backups werden wunschweise angelegt).\n\n"
  319.  
  320.                 "UPDATE\n\n"
  321.  
  322.                 "Installiert GoldED in das vorhandene GoldED-Verzeichnis. Dort vorhandene Dateien werden überschrieben (Backups werden wunschweise angelegt).\n\n"
  323.  
  324.                 "GOLDED ENTFERNEN\n\n"
  325.  
  326.                 "Alle Dateien und Ordner, die für GoldED angelegt wurden, werden entfernt. Ihre eigenen Dateien werden ebenfalls gelöscht, wenn sie sich in einem dieser Ordner befinden.\n\n"
  327.  
  328.             )
  329.         )
  330.  
  331.         (set #golded_new    "Neu installieren")
  332.         (set #golded_update "Update (über bisherige Version installieren)")
  333.         (set #golded_remove "Deinstallation (GoldED entfernen)")
  334.  
  335.         (set #golded_ask_amount "Bitte wählen Sie die gewünschte Installation:")
  336.  
  337.         (set #golded_ask_amount_help "Diese Auswahl bestimmt die Anzahl der Dateien, die installiert werden. Beachten Sie bitte, daß eine minimale Installation über eine vorhandene Installation die vorhandene Installation in die Minimal-Installation umwandelt (ein Backup der alten Installation wird wunschweise angelegt).")
  338.  
  339.         (set #golded_ask_amount_standard "Komplette Installation (2.6 MB)")
  340.         (set #golded_ask_amount_user     "Benutzerdefiniert")
  341.         (set #golded_ask_amount_minimum  "Minimalinstallation (640 K)")
  342.  
  343.         (set #golded_remove_ged  "GoldED-Assign entfernen ?")
  344.         (set #golded_remove_hs   "HiSpeed-Assign entfernen ?")
  345.         (set #golded_remove_ed   "Quickstarter-Referenz entfernen ?")
  346.         (set #golded_remove_gmk  "GUIMake-Assign entfernen ?")
  347.  
  348.         (set #golded_must_remove "Sie sollten den Assign/die Referenz entfernen lassen !")
  349.  
  350.         (set #golded_removed "; (entfernt)")
  351.  
  352.         (set #golded_lharc     "Entpacken der Daten (kann einige Minuten dauern)")
  353.         (set #golded_lharcfail "Entpacken der Daten abgebrochen - Speicherplatz überprüfen")
  354.  
  355.         (set #golded_installing_files "Installieren der Dateien ...")
  356.         (set #golded_prepare_install  "Vorbereiten der Installation ...")
  357.  
  358.         (set #golded_backup_mode "Wählen Sie eine Backup-Strategie für Ihre alte GoldED-Installation:")
  359.  
  360.         (set #golded_backup_mode_help "Hier können Sie bestimmen, wie alte Dateien behandelt werden, bevor sie durch neuere Versionen überschrieben oder (falls als obsolet eingestuft) gelöscht werden.")
  361.  
  362.         (set #golded_backup_mode_none      "Keine Backups")
  363.         (set #golded_backup_mode_selected  "Konfiguration & Makros sichern")
  364.         (set #golded_backup_mode_all       "Backup aller Dateien")
  365.  
  366.         (set #golded_pref_icons "Bevorzugten Icon-Typ wählen:")
  367.  
  368.         (set #golded_medres " Mittlere Auflösung (Seitenverhältnis 1:2)")
  369.         (set #golded_hires  " Hohe Auflösung     (Seitenverhältnis 1:1)")
  370.  
  371.         (set #golded_pref_icons_help "Wählen Sie die mittlere Auflösung, wenn für Ihre Workbench ein Modus wie 640*200 eingestellt ist. Die hohe Auflösung sollte bei einem Höhen-/ Breitenverhältnis von etwa 1:1 verwendet werden (640*512 oder 800*600).")
  372.  
  373.         (set #golded_images_style "Mit wie vielen Farben sollen die Symbole in GoldED dargestellt werden ?")
  374.  
  375.         (set #golded_images_4 "4  Farben")
  376.         (set #golded_images_8 "8+ Farben")
  377.  
  378.         (set #golded_images_help "Beide Varianten können auf beliebigen Screens verwendet werden. Der 4-Farb-Stil wurde für vierfarbige Screen optimiert. Der 8-Farb-Stil wurde für Screens mit acht oder mehr Farben (optimal: 16 Farben) ausgelegt.")
  379.  
  380.         (set #golded_where "Wo soll installiert werden ? In dem angegebenen Verzeichnis wird der Ordner 'GoldED' erzeugt:")
  381.  
  382.         (set #golded_where_help "Wählen Sie ein beliebiges Verzeichnis. Hauptverzeichnisse wie DH0: können auch benutzt werden. In dem angegebenen Pfad wird ein Ordner 'GoldED' samt Icon erzeugt werden. Das GoldED-Verzeichnis wird neben dem Editor auch diverse begleitende Dateien aufnehmen.")
  383.  
  384.         (set #golded_bad_path "Sorry, Installation in RAM-Disk nicht möglich.")
  385.  
  386.         (set #golded_drive_space "Diese Installation benötigt mindestens fünf MB freien Platz auf dem Zieldatenträger. Bitte machen Sie diesen Platz verfügbar und starten Sie die Installation dann neu.")
  387.  
  388.         (set #golded_gold_lib "Installation der GoldED-Library ...")
  389.  
  390.         (set #golded_gold_lib_help "Diese Library wird nur für die unregistriert Version benötigt. Registrierte Benutzer erhalten ersatzweise ein Keyfile.")
  391.  
  392.         (set #golded_select_optional "Bitte wählen Sie, welche der folgenden GoldED-Komponenten installiert werden sollen (schon installierte Komponenten werden ggf. entfernt):")
  393.  
  394.         (set #golded_select_optional_help
  395.  
  396.             (cat
  397.  
  398.                 "Sie sollten keine der folgenden Komponenten deaktivieren:\n\n"
  399.  
  400.                 "SYNTAX-PARSER (88 K)\n\n"
  401.  
  402.                 "Diverse Syntax-Parser (verantwortlich für die farbkodierte Textdarstellung: Sourcecodes, HTML, E-Mail, ...)\n\n"
  403.  
  404.                 "HISPEED (325 K)\n\n"
  405.  
  406.                 "Drucker-Utility für Laserdrucker, DeskJets und andere PCL-Drucker.\n\n"
  407.  
  408.                 "Sie können jede der folgenden Komponenten ohne Auswirkungen auf GoldED entfernen lassen:\n\n"
  409.  
  410.                 "AppIcon-STARTER (6 K)\n\n"
  411.  
  412.                 "Erzeugt ein Drag & Drop-Icon auf der Workbench: GoldED öffnet Texte, die auf dieses Icon gezogen werden.\n\n"
  413.  
  414.                 "RECOVER (6 K)\n\n"
  415.  
  416.                 "Kann nach einem Systemabsturz den zuletzt bearbeiteten Text rekonstruieren.\n\n"
  417.  
  418.                 "BESTELLPROGRAMM (22 K)\n\n"
  419.  
  420.                 "Druckt Bestellformular für GoldED.\n\n"
  421.  
  422.                 "API CLIENTS (21 K)\n\n"
  423.  
  424.                 "API-Erweiterungen (Beispiele)\n\n"
  425.  
  426.                 "DEVELOPER-MATERIAL/SOURCECODES (456 K)\n\n"
  427.  
  428.                 "Beispiel-Sourcecodes (Syntax-Scanner, QuickStarter, ...).\n\n"
  429.  
  430.                 "ANLEITUNG (300 - 358 K)\n\n"
  431.  
  432.                 "Anleitung (diverse Sprachen). AmigaGuide-Format. Hilfe zu den Menupunkten ist nur verfügbar, wenn eine Anleitung installiert wird, die der für GoldED ausgewählten Sprache entspricht.\n\n"
  433.  
  434.                 "QUICKSTARTER (5 K)\n\n"
  435.  
  436.                 "Schnelles GoldED-Frontend: GoldED-Aktivator.\n\n"
  437.  
  438.                 "UNLOCK (1 K)\n\n"
  439.  
  440.                 "Utility, das die Benutzeroberfläche von GoldED freischalten kann, wenn ein fehlerhaftes ARexx-Makro dies versäumt.\n\n"
  441.  
  442.                 "HISTORY (15 K)\n\n"
  443.  
  444.                 "Beschreibung der letzten Änderungen.\n\n"
  445.             )
  446.         )
  447.  
  448.         (set #golded_select_presets      "Konfigurationsdateien")
  449.         (set #golded_select_parsers      "Syntax-Parser"        )
  450.         (set #golded_select_hispeed      "HiSpeed"              )
  451.         (set #golded_select_appicon      "AppIcon-Starter"      )
  452.         (set #golded_select_recover      "Recover-Utility"      )
  453.         (set #golded_select_order        "Bestellprogramm"      )
  454.         (set #golded_select_api          "API-Clients"          )
  455.         (set #golded_select_sources      "Sourcecodes"          )
  456.         (set #golded_select_manual_e     "Anleitung (englisch)" )
  457.         (set #golded_select_manual_d     "Anleitung (deutsch)"  )
  458.         (set #golded_select_quickstarter "QuickStarter"         )
  459.         (set #golded_select_unlock       "UnLock-Utility"       )
  460.         (set #golded_select_history      "History"              )
  461.  
  462.         (set #golded_what_catalog "Welche Kataloge sollen installiert werden ?")
  463.  
  464.         (set #golded_what_catalog_help "Diese Daten werden vom Betriebssystem benötigt, um GoldED in verschiedenen Sprachen ablaufen zu lassen (dazu ist mindestens OS2.1 erforderlich). Menus werden nicht automatisch lokalisiert, da sie konfigurierbar sind und nicht direkt in den Editor eingebaut wurden - dazu später mehr.")
  465.  
  466.         (set #golded_update_keyfile "Sie besitzen schon ein Keyfile. Soll das vorhandene Keyfile ersetzt werden ?")
  467.  
  468.         (set #golded_update_keyfile_help "Beachten Sie bitte, daß unregistrierte Keyfiles Updates und Service-Packs nicht freischalten: installieren Sie deshalb ein unregistriertes OEM Keyfile nicht über ein registriertes Keyfile. Sorgen Sie bitte in jedem Fall für eine Sicherheitskopie vom vorhandenen Keyfile.")
  469.  
  470.         (set #golded_update_keyfile_overwrite "Keyfile ersetzen")
  471.         (set #golded_update_keyfile_keep "Altes Keyfile beibehalten")
  472.  
  473.         (set #golded_updating_icons "Aktualisieren der Icons ...")
  474.  
  475.         (set #golded_what_manuals "Welche Anleitungen sollen installiert werden ?")
  476.  
  477.         (set #golded_what_manuals_help "Jede Anleitung (AmigaGuide-Datei) belegt etwa 300K Platz auf Ihrer Festplatte.")
  478.  
  479.         (set #golded_add_ged_assign "GoldED-Assign einrichten ?")
  480.  
  481.         (set #golded_add_ged_assign_help "Der Editor benötigt diesen Assign zum Auffinden diverser Dateien.")
  482.  
  483.         (set #golded_quickname "Namen für Schnellstarter wählen:")
  484.  
  485.         (set #golded_quickname_help
  486.  
  487.             (cat
  488.  
  489.                 "Der Schnellstarter ist ein kleiner (5 KB) Vorsatz für GoldED, der benutzt werden kann, als ob er selbst ein Editor wäre. Sie könnten so 'ed text' eingeben, um die Datei 'text' zu bearbeiten, wenn der Name des Quickstarters ED lautet. Der Vorteil des Schnellstarters: Er kann einen schon laufenden Editor ansprechen und diesem die Aufgabe übergeben. Weiterhin erlaubt er es, GoldED von jedem beliebigen Verzeichnis aus aufzurufen oder den Editor von der Shell abzukoppeln.\n\n"
  490.  
  491.                 "Namensvorgabe ist ED, damit wird der originale ED Ihrer Workbench ersetzt. Es kann natürlich jeder beliebige andere Name benutzt werden."
  492.             )
  493.         )
  494.  
  495.         (set #golded_place_quick "Wählen Sie ein Verzeichnis für den Quickstarter. Das gewählte Verzeichnis sollte sich im Befehls-pfad befinden:")
  496.  
  497.         (set #golded_place_quick_help
  498.  
  499.             (cat
  500.  
  501.                 "Sie sollten eines der folgenden Verzeichnisse benutzen, um den Quickstarter durch einfache Namensangabe von jedem Verzeichnis aus aufrufen zu können:\n\n"
  502.  
  503.                 "SYS:C, SYS:TOOLS, SYS:UTILITIES oder SYS:SYSTEM\n\n"
  504.  
  505.                 "Haben Sie den Starter ED genannt, so sollte er entweder in 'C:' plaziert werden oder der dort vorhandene ED gelöscht werden, um eindeutige Verhältnisse zu schaffen."
  506.             )
  507.         )
  508.  
  509.         (set #golded_quick_resident "Schnellstarter resident machen ?")
  510.  
  511.         (set #golded_quick_resident_help "Der Quickstarter sollte resident gemacht werden, da er dann noch schneller ansprechbar ist. Der damit verbundene Speicherverbrauch ist vernachlässigbar (5 KB).")
  512.  
  513.         (set #golded_saving_files "Backups anlegen (golded:obsolete) ...")
  514.  
  515.         (set #golded_what_menu "Sprache für Menu auswählen:")
  516.  
  517.         (set #golded_what_menu_help "GoldED ist lokalisiert und benutzt die LocaleLibrary des Betriebssystems (OS3), um die Requestertexte in der bevorzugten Sprache darzustellen. Menus sind nicht Bestandteil von GoldED und werden deshalb auch nicht automatisch in der Sprache angepaßt. Wählen Sie deshalb bitte jetzt die gewünschte Übersetzung.")
  518.  
  519.         (set #golded_what_contextmenu "Sprache für Kontext-Menu auswählen:")
  520.  
  521.         (set #golded_screen "Gewünschter Bildschirmmodus:")
  522.  
  523.         (set #golded_screen_help "Einstellung des Bildschirmmodus vor dem ersten Programmstart. Wir raten zu einem eigenen Screen, da GoldED dann schneller arbeitet und schöner aussieht (bei Rechnern mit nur 512K Chip-RAM ist dafür aber möglicherweise zu wenig Speicher vorhanden).")
  524.  
  525.         (set #golded_screen_wb     "Workbench-Screen")
  526.         (set #golded_screen_ntsc_i "NTSC interlaced (640*400)")
  527.         (set #golded_screen_pal_i  "PAL  interlaced (640*512)")
  528.  
  529.         (set #golded_look_feel "Look & Feel")
  530.  
  531.         (set #golded_look_feel_help "Vorschlag: Verwenden Sie zwei Farben, wenn Ihr Rechner langsam ist (68000-CPU), vier Farben für Rechner mit 68020/68030-CPU (etwa A1200) oder einen beliebigen Modus für schnelle Rechner mit 68040/68060-CPU.")
  532.  
  533.         (set #golded_mode_blue     "Blau     (2  Farben)")
  534.         (set #golded_mode_stone    "Modern   (4  Farben)")
  535.         (set #golded_mode_desktop  "Desktop  (8  Farben)")
  536.         (set #golded_mode_designer "Designer (16 Farben)")
  537.  
  538.         (set #golded_what_proglang "Bevorzugte Programmiersprache:")
  539.  
  540.         (set #golded_what_proglang_other "andere")
  541.         (set #golded_what_proglang_none  "keine")
  542.  
  543.         (set #golded_what_proglang_help "Diese Auswahl kontrolliert die Vorinstallation sprachspezifischer Features (z.B. Syntax-Parser). Prinzipiell werden alle Dateien installiert, aber nur der Support für die hier gewählten Sprache wird in Ihre Grundkonfiguration aufgenommen.")
  544.  
  545.         (set #golded_install_reqtools "Reqtools-Library installieren ?")
  546.  
  547.         (set #golded_install_reqtools_help "Reqtools ©1991-1996 Nico François. GoldED wird nicht starten, wenn die Reqtools-Library nicht verfügbar ist.")
  548.  
  549.         (set #golded_install_presets "Installation der Konfigurationsdateien...")
  550.  
  551.         (set #golded_hs_assign "HiSpeed-Assign einrichten ?")
  552.  
  553.         (set #golded_hs_assign_help "Dieser Assign wird benötigt, wenn HiSpeed aus jedem beliebigen Verzeichnis heraus aufrufbar soll. Ohne diesen Assign kann HiSpeed nicht durch GoldED gestartet werden. HiSpeed ist ein Druckprogramm für PCL-Drucker (Laser, Deskjet).")
  554.  
  555.         (set #golded_removing_temp_files "Entfernen temporärer Dateien ...")
  556.  
  557.         (set #golded_complete (cat "Installation abgeschlossen."))
  558.  
  559.         (set #install_presets "Standardeinstellungen installieren ?")
  560.  
  561.         (set #install_presets_menu     "Menu"    )
  562.         (set #install_presets_display  "Anzeige" )
  563.         (set #install_presets_keyboard "Tastatur")
  564.         (set #install_presets_toolbar  "Toolbar" )
  565.         (set #install_presets_mouse    "Maus"    )
  566.         (set #install_presets_all      "Alle"    )
  567.  
  568.         (set #install_presets_help
  569.  
  570.             (cat
  571.  
  572.                 "Zusammen mit GoldED werden Standardeinstellungen für Menus, Tastaturbelegung, etc. ausgeliefert. Eine erneute Installation dieses Materials ist nicht erforderlich, wenn GoldED schon einmal installiert wurde: Sie können die vorhandenen Einstellungen weiter verwenden. Allerdings entgehen Ihnen dann möglicherweise aktualisierte Komponenten (beispielsweise eine neue Menüübersetzung).\n\n"
  573.  
  574.                 "Tip: Nennen Sie die eigenen Konfigurationen nicht standard.*. Dann können die Standardeinstellungen mit jedem Update neu installiert werden, ohne daß eigenes Material davon berührt wird."
  575.             )
  576.         )
  577.     )
  578. )
  579.  
  580. ; --------------------------- Prepare installation -----------------------------
  581.  
  582. (onerror (
  583.  
  584.     (if (> @ioerr 0) 
  585.  
  586.         (message (cat "ERROR CODE: " @ioerr "\n\n" #golded_error))
  587.     )
  588. ))
  589.  
  590. ; initialize return code
  591.  
  592. (textfile (dest "env:GOLDEDINSTALL") (append "INCOMPLETE"))
  593.  
  594. ; sure we are running under a 2.04 ROM ?
  595.  
  596. (if (< (/ (getversion) 65536) 37)
  597.  
  598.     (
  599.         (message #golded_badkick)
  600.  
  601.         (textfile (dest "env:GOLDEDINSTALL") (append "ERROR"))
  602.  
  603.         (exit (quiet))
  604.     )
  605. )
  606.  
  607. ; -------------------------------- Constants -----------------------------------
  608.  
  609. (set install_mode_new          0)
  610. (set install_mode_update       1)
  611. (set install_mode_remove       2)
  612.  
  613. (set install_type_maximum      0)
  614. (set install_type_user         1)
  615. (set install_type_minimum      2)
  616.  
  617. (set image_style_4             0)
  618. (set image_style_8             1)
  619.  
  620. (set backup_mode_none          0)
  621. (set backup_mode_ask           1)
  622.  
  623. (set screen_workbench          0)
  624.  
  625. (set component_parser          1)
  626. (set component_hispeed         2)
  627. (set component_appicon         4)
  628. (set component_recover         8)
  629. (set component_order          16)
  630. (set component_api            32)
  631. (set component_sources        64)
  632. (set component_manual_e      128)
  633. (set component_manual_d      256)
  634. (set component_quickstarter  512)
  635. (set component_unlock       1024)
  636. (set component_history      2048)
  637.  
  638. (set component_all (+ component_parser component_hispeed component_appicon component_recover component_order component_api component_sources component_manual_e component_manual_d component_quickstarter component_unlock component_history))
  639.  
  640. (set install_presets_menu     1 )
  641. (set install_presets_display  2 )
  642. (set install_presets_keyboard 4 )
  643. (set install_presets_toolbar  8 )
  644. (set install_presets_mouse    16)
  645. (set install_presets_all      32)
  646.  
  647. (set install_presets_again     0)
  648. (set install_presets_keep      1)
  649.  
  650. ; ----------------------------- Welcome user -----------------------------------
  651.  
  652. (welcome)
  653.  
  654. (if (exists "GoldED:" (noreq))
  655.  
  656.     (
  657.         (set install_path (expandpath "golded:/"))
  658.  
  659.         (set install_mode
  660.  
  661.             (askchoice
  662.  
  663.                 (prompt #golded_assign_found)
  664.                 (help   #golded_assign_found_help)
  665.  
  666.                 (default 1)
  667.  
  668.                 (choices
  669.  
  670.                     #golded_new
  671.                     #golded_update
  672.                     #golded_remove
  673.                 )
  674.             )
  675.         )
  676.     )
  677.  
  678.     ; GoldED not yet installed
  679.  
  680.     (set install_mode install_mode_new )
  681. )
  682.  
  683. ; ---------------------------- Deinstall GoldED --------------------------------
  684.  
  685. (if (= install_mode install_mode_remove)
  686.  
  687.     (
  688.         (run "assign >NIL: oldged: GoldED:/")
  689.  
  690.         ; assigns have to be removed first
  691.  
  692.         (run "assign >NIL: HiSpeed:  remove")
  693.         (run "assign >NIL: GoldED:   remove")
  694.         (run "assign >NIL: GUIMake:  remove")
  695.  
  696.         (run "delete >NIL: oldged:GoldED all quiet force")
  697.         (run "delete >NIL: oldged:GoldED.info")
  698.  
  699.         (if (exists "locale:" (noreq))
  700.  
  701.             (
  702.                 (delete "locale:catalogs/deutsch/GoldED.catalog"   )
  703.                 (delete "locale:catalogs/français/GoldED.catalog"  )
  704.                 (delete "locale:catalogs/italiano/GoldED.catalog"  )
  705.                 (delete "locale:catalogs/nederlands/GoldED.catalog")
  706.                 (delete "locale:catalogs/svenska/GoldED.catalog"   )
  707.                 (delete "locale:catalogs/deutsch/SpellIT.catalog"  )
  708.                 (delete "locale:catalogs/français/SpellIT.catalog" )
  709.                 (delete "locale:catalogs/deutsch/HiSpeed.catalog"  )
  710.                 (delete "locale:catalogs/français/HiSpeed.catalog" )
  711.             )
  712.         )
  713.  
  714.         (run "delete >NIL: sys:prefs/presets/GED_#? all quiet")
  715.         (run "delete >NIL: sys:prefs/presets/GoldED all quiet")
  716.         (run "delete >NIL: envarc:GoldED            all quiet")
  717.         (run "delete >NIL: env:GoldED               all quiet")
  718.         (run "delete >NIL: envarc:HiSpeed           all quiet")
  719.         (run "delete >NIL: env:HiSpeed              all quiet")
  720.         (run "delete >NIL: fonts:GoldED             all quiet")
  721.  
  722.         (delete "s:GUIMake.pref")
  723.  
  724.         (delete "libs:golded.library")
  725.  
  726.         (startup "GoldED"
  727.  
  728.             (prompt  #golded_remove_ged)
  729.             (help    #golded_must_remove)
  730.             (command #golded_removed)
  731.         )
  732.  
  733.         (startup "HiSpeed"
  734.  
  735.             (prompt  #golded_remove_hs)
  736.             (help    #golded_must_remove)
  737.             (command #golded_removed)
  738.         )
  739.  
  740.         (startup "GED_quick"
  741.  
  742.             (prompt  #golded_remove_ed)
  743.             (help    #golded_must_remove)
  744.             (command #golded_removed)
  745.         )
  746.  
  747.         (startup "GUIMake"
  748.  
  749.             (prompt  #golded_remove_gmk)
  750.             (help    #golded_must_remove)
  751.             (command #golded_removed)
  752.         )
  753.  
  754.         (run "assign >NIL: oldged:  remove")
  755.  
  756.         ; set return code
  757.  
  758.         (textfile (dest "env:GOLDEDINSTALL") (append "REMOVED"))
  759.  
  760.         (exit (quiet))
  761.     )
  762. )
  763.  
  764. ; choose destination directotry
  765.  
  766. (if (= install_mode install_mode_new)
  767.  
  768.     (
  769.         (set install_path
  770.  
  771.             (askdir
  772.  
  773.                 (prompt #golded_where)
  774.                 (help   #golded_where_help)
  775.  
  776.                 (default "SYS:TOOLS")
  777.             )
  778.         )
  779.     )
  780. )
  781.  
  782. ; ask for installation type
  783.  
  784. (set install_type
  785.  
  786.     (askchoice
  787.  
  788.         (prompt #golded_ask_amount)
  789.         (help   #golded_ask_amount_help)
  790.  
  791.         (default 0)
  792.  
  793.         (choices
  794.  
  795.             #golded_ask_amount_standard
  796.             #golded_ask_amount_user
  797.             #golded_ask_amount_minimum
  798.         )
  799.     )
  800. )
  801.  
  802. ; ------------------------ Prepare destination directory -----------------------
  803.  
  804. ; create destination directory, create GoldED: assign
  805.  
  806. (if (= install_mode install_mode_update)
  807.  
  808.     (
  809.         (set install_path  (expandpath "golded:/"))
  810.         (set install_dir   (expandpath "golded:" ))
  811.  
  812.         (set @default-dest install_dir)
  813.  
  814.         (set backup_mode backup_mode_ask)
  815.     )
  816.  
  817.     (
  818.         (set install_dir (tackon install_path "GoldED"))
  819.  
  820.         (set @default-dest install_dir)
  821.  
  822.         (if (exists install_dir)
  823.  
  824.             (
  825.                 (set backup_mode backup_mode_ask)
  826.  
  827.                 (if (exists (tackon install_path "GoldED.info"))
  828.  
  829.                     (makedir install_dir)
  830.                     (makedir install_dir (infos))
  831.                 )
  832.             )
  833.  
  834.             (
  835.  
  836.                 (set backup_mode backup_mode_none)
  837.  
  838.                 (makedir install_dir (infos))
  839.             )
  840.         )
  841.  
  842.         (makeassign "GoldED" install_dir)
  843.     )
  844. )
  845.  
  846. ; ------------------------------ Uncompress files ------------------------------
  847.  
  848. (if (or (= golded_install_debug 0) (not (exists "golded:goldeddata")))
  849.  
  850.     (
  851.         (working #golded_lharc)
  852.  
  853.         ; lhfasfx is somewhat fussy about missing "/"'s - we use the assign instead
  854.  
  855.         (run "install.run golded:")
  856.  
  857.         (if (not (exists "golded:goldeddata"))
  858.  
  859.             (
  860.                 (message #golded_lharcfail)
  861.  
  862.                 (exit (quiet))
  863.             )
  864.         )
  865.     )
  866. )
  867.  
  868. ; ------------------------------- Install libs ---------------------------------
  869.  
  870. (if (exists "golded:libs/reqtools.library")
  871.  
  872.     (
  873.         (copylib
  874.  
  875.             (prompt  #golded_install_reqtools)
  876.             (help    #golded_install_reqtools_help)
  877.             (source  "golded:libs/reqtools.library")
  878.             (dest    "libs:")
  879.             (confirm)
  880.         )
  881.     )
  882. )
  883.  
  884. ; ------------------------------- Start background tasks -----------------------
  885.  
  886. ; check installation
  887.  
  888. (run "golded:goldeddata/installdata/bin/checksetup")
  889.  
  890. ; --------------------------- Check existing installation ----------------------
  891.  
  892. ; don't install over unregistered OEM version
  893.  
  894. (if (not (exists "keyfile/golded.keyfile"))
  895.  
  896.     (if (exists "t:setup.inf")
  897.  
  898.         (message #golded_oemerr)
  899.     )
  900. )
  901.  
  902. ; find installed components
  903.  
  904. (if (= install_mode install_mode_update)
  905.  
  906.     ; upgrading from GoldED 4 ?
  907.  
  908.     (if (exists "golded:registry")
  909.  
  910.         (
  911.             (set install_optional (+ component_parser component_hispeed))
  912.  
  913.             (if (exists "golded:appicon"           ) (set install_optional (+ install_optional component_appicon     )))
  914.             (if (exists "golded:recover"           ) (set install_optional (+ install_optional component_recover     )))
  915.             (if (exists "golded:order"             ) (set install_optional (+ install_optional component_order       )))
  916.             (if (exists "golded:api/rexx.api"      ) (set install_optional (+ install_optional component_api         )))
  917.             (if (exists "golded:developer"         ) (set install_optional (+ install_optional component_sources     )))
  918.             (if (exists "golded:manual"            ) (set install_optional (+ install_optional component_manual_e    )))
  919.             (if (exists "golded:anleitung"         ) (set install_optional (+ install_optional component_manual_d    )))
  920.             (if (exists "golded:ed"                ) (set install_optional (+ install_optional component_quickstarter)))
  921.             (if (exists "golded:unlock"            ) (set install_optional (+ install_optional component_unlock      )))
  922.             (if (exists "golded:history"           ) (set install_optional (+ install_optional component_history     )))
  923.         )
  924.  
  925.         (set install_optional component_all)
  926.     )
  927.  
  928.     (set install_optional component_all)
  929. )
  930.  
  931. (if (exists "golded:golded.info")
  932.  
  933.     (if (> (getsize "golded:golded.info") 800)
  934.  
  935.         (set golded_icon_set 1)
  936.         (set golded_icon_set 0)
  937.     )
  938.  
  939.     (set golded_icon_set 1)
  940. )
  941.  
  942. (if (exists "golded:images/sys/menu")
  943.  
  944.     (if (> (getsize "golded:images/sys/menu") 256)
  945.  
  946.         (set image_style image_style_8)
  947.         (set image_style image_style_4)
  948.     )
  949.  
  950.     (set image_style image_style_4)
  951. )
  952.  
  953. ; --------------------------- Backup important files ---------------------------
  954.  
  955. (if (exists "golded:obsolete")
  956.  
  957.     (run "delete golded:obsolete all quiet")
  958. )
  959.  
  960. (if (= backup_mode backup_mode_ask)
  961.  
  962.     (
  963.         (set backup_default 2)
  964.  
  965.         (set backup_mode
  966.  
  967.             (askchoice
  968.  
  969.                 (prompt #golded_backup_mode)
  970.                 (help   #golded_backup_mode_help)
  971.  
  972.                 (default backup_default)
  973.  
  974.                 (choices
  975.  
  976.                     #golded_backup_mode_none
  977.                     #golded_backup_mode_selected
  978.                     #golded_backup_mode_all
  979.                 )
  980.             )
  981.         )
  982.     )
  983. )
  984.  
  985. (if (not (= backup_mode backup_mode_none))
  986.  
  987.     (
  988.         (makedir "golded:obsolete")
  989.  
  990.         (if (= backup_mode 2)
  991.  
  992.             (
  993.                 (working #golded_saving_files)
  994.  
  995.                 (copyfiles
  996.  
  997.                     (source   "golded:"                )
  998.                     (dest     "golded:obsolete"        )
  999.                     (pattern  "~(goldeddata|obsolete)" )
  1000.                     (nogauge)
  1001.                 )
  1002.             )
  1003.  
  1004.             (if (or (exists "golded:arexx") (exists "golded:registry") (exists "golded:config"))
  1005.  
  1006.                 (
  1007.                     (working #golded_saving_files)
  1008.  
  1009.                     (copyfiles
  1010.  
  1011.                         (source   "golded:"          )
  1012.                         (dest     "golded:obsolete"  )
  1013.                         (pattern  "(registry|arexx|config)" )
  1014.                         (nogauge)
  1015.                     )
  1016.                 )
  1017.             )
  1018.         )
  1019.     )
  1020. )
  1021.  
  1022. ; --------------------------- Remove obsolete files ----------------------------
  1023.  
  1024. (run "delete golded:presets all quiet")
  1025. (run "delete golded:config  all quiet")
  1026.  
  1027. ; remove obsolete files
  1028.  
  1029. (delete "golded:golded.guide" (infos))
  1030. (delete "golded:GEDApp" (infos))
  1031. (delete "golded:Hi!" (infos))
  1032. (delete "golded:Tools/Unlock.info" (infos))
  1033. (delete "golded:rx")
  1034. (delete "golded:api/history")
  1035. (delete "golded:api/readme")
  1036. (delete "golded:api/readme.info")
  1037. (delete "golded:api/dock/dock1.prefs")
  1038. (delete "golded:api/dock/dock2.prefs")
  1039. (delete "golded:macros/test.ged")
  1040. (delete "golded:Anleitung")
  1041. (delete "golded:Manual")
  1042. (delete "golded:Manuel")
  1043. (delete "golded:History")
  1044. (delete "golded:keyfile/keyfile")
  1045. (delete "libs:golded.library")
  1046.  
  1047. (run "delete sys:prefs/presets/GED_#? all quiet")
  1048.  
  1049. ; remove obsolete icons
  1050.  
  1051. (delete "golded:golded.info"         )
  1052. (delete "golded:arexx.info"          )
  1053. (delete "golded:menu.info"           )
  1054. (delete "golded:manuel.info"         )
  1055. (delete "golded:tools.info"          )
  1056. (delete "golded:api.info"            )
  1057. (delete "golded:tools/hispeed.info"  )
  1058. (delete "golded:tools/ed.info"       )
  1059. (delete "golded:tools/gedrefs.info"  )
  1060. (delete "golded:tools/recover.info"  )
  1061. (delete "golded:tools/gedapp.info"   )
  1062. (delete "golded:tools/prjsource.info")
  1063. (delete "golded:tools/unlock.info"   )
  1064. (delete "golded:tools/geddock.info"  )
  1065. (delete "golded:tools/gedscan.info"  )
  1066. (delete "golded:tools/menu.info"     )
  1067. (delete "golded:api/reversed.info"   )
  1068. (delete "golded:api/nextstep.info"   )
  1069. (delete "golded:api/dock.info"       )
  1070. (delete "golded:tools/source.info"   )
  1071. (delete "golded:tools/scanner.info"  )
  1072.  
  1073. ; remove obsolete catalogs
  1074.  
  1075. (if (exists "locale:" (noreq)) (
  1076.  
  1077.     (delete "locale:catalogs/deutsch/GoldED.catalog")
  1078.     (delete "locale:catalogs/français/GoldED.catalog")
  1079.     (delete "locale:catalogs/italiano/GoldED.catalog")
  1080.     (delete "locale:catalogs/nederlands/GoldED.catalog")
  1081.     (delete "locale:catalogs/svenska/GoldED.catalog")
  1082.     (delete "locale:catalogs/deutsch/HiSpeed.catalog")
  1083.     (delete "locale:catalogs/français/HiSpeed.catalog")
  1084. ))
  1085.  
  1086. ; remove obsolete drawers
  1087.  
  1088. (run "delete golded:config                all quiet")
  1089. (run "delete golded:macros                all quiet")
  1090. (run "delete golded:presets               all quiet")
  1091. (run "delete golded:syntax/developer      all quiet")
  1092. (run "delete golded:menu                  all quiet")
  1093. (run "delete golded:tools/menu            all quiet")
  1094. (run "delete golded:tools/scanner         all quiet")
  1095. (run "delete golded:tools/source          all quiet")
  1096. (run "delete golded:tools/ed              all quiet")
  1097. (run "delete golded:tools/gedrefs         all quiet")
  1098. (run "delete golded:tools/recover         all quiet")
  1099. (run "delete golded:tools/gedapp          all quiet")
  1100. (run "delete golded:tools/prjsource       all quiet")
  1101. (run "delete golded:tools/unlock          all quiet")
  1102. (run "delete golded:tools/geddock         all quiet")
  1103. (run "delete golded:tools/gedscan         all quiet")
  1104. (run "delete golded:tools/hispeed/keyfile all quiet")
  1105. (run "delete env:golded                   all quiet")
  1106. (run "delete envarc:golded                all quiet")
  1107. (run "delete s:golded                     all quiet")
  1108. (run "delete golded:tools/edsource        all quiet")
  1109. (run "delete golded:api/rexx              all quiet")
  1110. (run "delete golded:api/spell             all quiet")
  1111. (run "delete golded:api/reversed          all quiet")
  1112. (run "delete golded:api/nextstep          all quiet")
  1113. (run "delete golded:api/dock              all quiet")
  1114. (run "delete golded:api/include           all quiet")
  1115. (run "delete golded:arexx/backup          all quiet")
  1116.  
  1117. ; ----------------------------- Install all files ------------------------------
  1118.  
  1119. (if (or (= golded_install_debug 0) (not (exists "golded:golded")))
  1120.  
  1121.     (
  1122.         (if (= install_type install_type_user)
  1123.  
  1124.             (working #golded_prepare_install)
  1125.             (working #golded_installing_files)
  1126.         )
  1127.  
  1128.         (copyfiles
  1129.  
  1130.             (source  "golded:goldeddata")
  1131.             (dest    "golded:"          )
  1132.             (pattern "~(installdata)"   )
  1133.             (nogauge)
  1134.         )
  1135.     )
  1136. )
  1137.  
  1138. (copyfiles
  1139.  
  1140.     (source "golded:tools/hispeed/HiSpeed")
  1141.     (dest   "golded:")
  1142.     (nogauge)
  1143. )
  1144.  
  1145. (copyfiles
  1146.  
  1147.     (source "golded:goldeddata/installdata/fonts" )
  1148.     (dest   "fonts:")
  1149.     (all)
  1150.     (nogauge)
  1151. )
  1152.  
  1153. (if (not (exists "golded:registry"))
  1154.  
  1155.     (makedir "golded:registry")
  1156. )
  1157.  
  1158. (if (not (exists "golded:registry/presets"))
  1159.  
  1160.     (makedir "golded:registry/presets")
  1161. )
  1162.  
  1163.  
  1164. (if (not (exists "golded:xref"))
  1165.  
  1166.     (makedir "golded:xref")
  1167. )
  1168.  
  1169.  
  1170. (if (not (exists "golded:recordings"))
  1171.  
  1172.     (makedir "golded:recordings")
  1173. )
  1174.  
  1175. (if (not (exists "golded:sessions"))
  1176.  
  1177.     (makedir "golded:sessions")
  1178. )
  1179.  
  1180. ; ------------------------------ Install keyfile -------------------------------
  1181.  
  1182. (if (exists "keyfile/golded.keyfile")
  1183.  
  1184.     (
  1185.         (if (exists "golded:keyfile/golded.keyfile")
  1186.  
  1187.             (set install_keyfile
  1188.  
  1189.                 (askchoice
  1190.  
  1191.                     (prompt #golded_update_keyfile)
  1192.                     (help   #golded_update_keyfile_help)
  1193.  
  1194.                     (default 1)
  1195.  
  1196.                     (choices
  1197.  
  1198.                         #golded_update_keyfile_keep
  1199.                         #golded_update_keyfile_overwrite
  1200.                     )
  1201.                 )
  1202.             )
  1203.  
  1204.             (set install_keyfile 1)
  1205.         )
  1206.     )
  1207.  
  1208.     ; just a demo
  1209.  
  1210.     (set install_keyfile 0)
  1211. )
  1212.  
  1213. (if (= install_keyfile 1)
  1214.  
  1215.     (
  1216.         ; just in case somebody saved the keyfile as golded:keyfile (supposed to be a drawer)
  1217.  
  1218.         (run "delete golded:keyfile")
  1219.  
  1220.         (if (not (exists "golded:keyfile"))
  1221.  
  1222.             (makedir "golded:keyfile")
  1223.         )
  1224.  
  1225.         (copyfiles
  1226.  
  1227.             (source "keyfile/golded.keyfile")
  1228.             (dest   "golded:keyfile")
  1229.         )
  1230.     )
  1231. )
  1232.  
  1233. ; ------------------------------- Install icons --------------------------------
  1234.  
  1235. (if (= install_mode install_mode_new)
  1236.  
  1237.     (set golded_icon_set
  1238.  
  1239.         (askchoice
  1240.  
  1241.             (prompt #golded_pref_icons)
  1242.             (help   #golded_pref_icons_help)
  1243.  
  1244.             (choices
  1245.  
  1246.                 #golded_medres
  1247.                 #golded_hires
  1248.             )
  1249.  
  1250.             (default golded_icon_set)
  1251.         )
  1252.     )
  1253. )
  1254.  
  1255. (working #golded_updating_icons)
  1256.  
  1257. ; install small (med-res) icons
  1258.  
  1259. (if (= golded_icon_set 0)
  1260.  
  1261.     (
  1262.         (copyfiles
  1263.  
  1264.             (source "golded:goldeddata/installdata/icons/golded")
  1265.             (dest   "golded:")
  1266.             (all)
  1267.             (nogauge)
  1268.         )
  1269.     )
  1270. )
  1271.  
  1272. ; create GoldED ARexx macro icons
  1273.  
  1274. (if (= golded_icon_set 0)
  1275.  
  1276.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:arexx ICON=golded:goldeddata/installdata/icons/script/medres DX=100 DY=40 COLUMNS=5")
  1277.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:arexx ICON=golded:goldeddata/installdata/icons/script/hires  DX=100 DY=45 COLUMNS=5")
  1278. )
  1279.  
  1280. ; create HiSpeed Arexx macro icons
  1281.  
  1282. (if (= golded_icon_set 0)
  1283.  
  1284.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:tools/hispeed/arexx ICON=golded:goldeddata/installdata/icons/script/medres DX=90 DY=40 COLUMNS=5")
  1285.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:tools/hispeed/arexx ICON=golded:goldeddata/installdata/icons/script/hires  DX=95 DY=45 COLUMNS=5")
  1286. )
  1287.  
  1288. ; install images
  1289.  
  1290. (set image_style
  1291.  
  1292.     (askchoice
  1293.  
  1294.         (prompt #golded_images_style)
  1295.         (help   #golded_images_help)
  1296.  
  1297.         (choices
  1298.  
  1299.             #golded_images_4
  1300.             #golded_images_8
  1301.         )
  1302.  
  1303.         (default image_style)
  1304.     )
  1305. )
  1306.  
  1307. ; install default images (4-color)
  1308.  
  1309. (copyfiles
  1310.  
  1311.     (source "golded:goldeddata/installdata/color4/images")
  1312.     (dest   "golded:images")
  1313.     (all)
  1314.     (nogauge)
  1315. )
  1316.  
  1317. ; install 16-color images over 4-color images
  1318.  
  1319. (if (= image_style image_style_8)
  1320.  
  1321.     (copyfiles
  1322.  
  1323.         (source "golded:goldeddata/installdata/color16/images")
  1324.         (dest   "golded:images")
  1325.         (all)
  1326.         (nogauge)
  1327.     )
  1328. )
  1329.  
  1330. ; ------------------------------ Select components  ----------------------------
  1331.  
  1332. (if (= install_type install_type_maximum)
  1333.  
  1334.     (set install_optional component_all)
  1335. )
  1336.  
  1337. (if (= install_type install_type_minimum)
  1338.  
  1339.     (set install_optional 0)
  1340. )
  1341.  
  1342. (if (= install_type install_type_user)
  1343.  
  1344.     (set install_optional
  1345.  
  1346.         (askoptions
  1347.  
  1348.             (prompt #golded_select_optional)
  1349.             (help   #golded_select_optional_help)
  1350.  
  1351.             (default install_optional)
  1352.  
  1353.             (choices
  1354.  
  1355.                 #golded_select_parsers
  1356.                 #golded_select_hispeed
  1357.                 #golded_select_appicon
  1358.                 #golded_select_recover
  1359.                 #golded_select_order
  1360.                 #golded_select_api
  1361.                 #golded_select_sources
  1362.                 #golded_select_manual_e
  1363.                 #golded_select_manual_d
  1364.                 #golded_select_quickstarter
  1365.                 #golded_select_unlock
  1366.                 #golded_select_history
  1367.             )
  1368.         )
  1369.     )
  1370. )
  1371.  
  1372. ; ----------------------------- Remove unwanted files --------------------------
  1373.  
  1374. (if (= 0 (bitand install_optional component_sources))
  1375.  
  1376.     (
  1377.  
  1378.         (run "delete golded:developer all quiet")
  1379.         (run "delete golded:tools/cat all quiet")
  1380.  
  1381.         (delete "golded:tools/cat.info")
  1382.     )
  1383. )
  1384.  
  1385. (if (= 0 (bitand install_optional component_parser))
  1386.  
  1387.     (run "delete golded:syntax/#? all quiet")
  1388. )
  1389.  
  1390. (if (= 0 (bitand install_optional component_hispeed))
  1391.  
  1392.     (
  1393.         (if (exists "hispeed:" (noreq))
  1394.  
  1395.             (run "assign HiSpeed: remove")
  1396.  
  1397.             (startup "HiSpeed"
  1398.  
  1399.                 (prompt  #golded_remove_hs)
  1400.                 (help    #golded_must_remove)
  1401.                 (command #golded_removed)
  1402.             )
  1403.         )
  1404.  
  1405.         (delete "golded:hispeed")
  1406.  
  1407.         (run "delete golded:tools/hispeed#? all quiet")
  1408.     )
  1409. )
  1410.  
  1411. (if (= 0 (bitand install_optional component_appicon))
  1412.  
  1413.     (delete "golded:appicon")
  1414. )
  1415.  
  1416. (if (= 0 (bitand install_optional component_recover))
  1417.  
  1418.     (delete "golded:recover")
  1419. )
  1420.  
  1421. (if (= 0 (bitand install_optional component_order))
  1422.  
  1423.     (delete "golded:order")
  1424. )
  1425.  
  1426. (if (= 0 (bitand install_optional component_api))
  1427.  
  1428.     (run "delete golded:api/(dock|rexx|spell|startup|mirror|quickinfo)#? all quiet")
  1429. )
  1430.  
  1431. (if (= 0 (bitand install_optional component_manual_e))
  1432.  
  1433.     (delete "golded:manual")
  1434. )
  1435.  
  1436. (if (= 0 (bitand install_optional component_manual_d))
  1437.  
  1438.     (delete "golded:anleitung")
  1439. )
  1440.  
  1441. (if (= 0 (bitand install_optional component_quickstarter))
  1442.  
  1443.     (delete "golded:ed")
  1444. )
  1445.  
  1446. (if (= 0 (bitand install_optional component_unlock))
  1447.  
  1448.     (delete "golded:unlock")
  1449. )
  1450.  
  1451. (if (= 0 (bitand install_optional component_history))
  1452.  
  1453.     (delete "golded:history")
  1454. )
  1455.  
  1456. ; --------------------------------- Arrange icons ------------------------------
  1457.  
  1458. ; arrange icons
  1459.  
  1460. (run "golded:goldeddata/installdata/bin/moveicons QUIET GAP FILES=GoldED ED AppIcon Anleitung Manual Manuel DIR=golded:")
  1461. (run "golded:goldeddata/installdata/bin/moveicons QUIET GAP FILES=HiSpeed Recover Unlock Order DIR=golded:")
  1462.  
  1463. (run "golded:goldeddata/installdata/bin/moveicons DIR=golded:tools GRID DX=0 DY=27 COLUMNS=1")
  1464. (run "golded:goldeddata/installdata/bin/moveicons DIR=golded:api   GRID DX=0 DY=45 COLUMNS=1")
  1465.  
  1466. ; ---------------------------------- QuickStarter ------------------------------
  1467.  
  1468. (if (bitand install_optional component_quickstarter)
  1469.  
  1470.     (
  1471.         (set quick_starter_name (askstring
  1472.  
  1473.             (prompt #golded_quickname)
  1474.             (help   #golded_quickname_help)
  1475.  
  1476.             (default "ED")
  1477.         ))
  1478.  
  1479.         (if (= quick_starter_name "")
  1480.  
  1481.             (set quick_starter_name "ED")
  1482.             (set quick_starter_name (fileonly quick_starter_name))
  1483.         )
  1484.  
  1485.         (set quick_starter_dir (askdir
  1486.  
  1487.             (prompt #golded_place_quick)
  1488.             (help   #golded_place_quick_help)
  1489.  
  1490.             (default "c:")
  1491.         ))
  1492.  
  1493.         ; patch quickstarter to allow it running GoldED without GOLDED: assign
  1494.  
  1495.         (run (cat "golded:goldeddata/installdata/bin/patch file=golded:ed find=$GOLDED INSERT=\"" (expandpath "golded:") "\""))
  1496.  
  1497.         (if (<> (expandpath "golded:ed") (expandpath (tackon quick_starter_dir quick_starter_name)))
  1498.  
  1499.             (copyfiles
  1500.  
  1501.                 (source  "golded:ed")
  1502.                 (dest     quick_starter_dir)
  1503.                 (newname  quick_starter_name)
  1504.                 (nogauge)
  1505.             )
  1506.         )
  1507.  
  1508.         (set quickstarter (tackon quick_starter_dir quick_starter_name))
  1509.     )
  1510. )
  1511.  
  1512. ; ----------------------------- Standard configuration -------------------------
  1513.  
  1514. (if (= @language "english" ) (set menu_language 0))
  1515. (if (= @language "deutsch" ) (set menu_language 1))
  1516. (if (= @language "italiano") (set menu_language 2))
  1517. (if (= @language "français") (set menu_language 3))
  1518. (if (= @language "svenska" ) (set menu_language 4))
  1519. (if (= @language "español" ) (set menu_language 5))
  1520.  
  1521. (if (exists "golded:registry/registry")
  1522.  
  1523.     (
  1524.         (set install_presets
  1525.  
  1526.             (askoptions
  1527.  
  1528.                 (prompt #install_presets)
  1529.                 (help   #install_presets_help)
  1530.  
  1531.                 (choices
  1532.  
  1533.                     #install_presets_menu
  1534.                     #install_presets_display
  1535.                     #install_presets_keyboard
  1536.                     #install_presets_toolbar
  1537.                     #install_presets_mouse
  1538.                     #install_presets_all
  1539.                 )
  1540.  
  1541.                 (default 0)
  1542.             )
  1543.         )
  1544.     )
  1545.  
  1546.     (
  1547.         (copyfiles
  1548.  
  1549.             (source "golded:goldeddata/installdata/registry/registry")
  1550.             (dest   "golded:registry")
  1551.             (nogauge)
  1552.         )
  1553.  
  1554.         (set install_presets install_presets_all)
  1555.     )
  1556. )
  1557.  
  1558. ; install standard presets ?
  1559.  
  1560. (if (<> install_presets 0)
  1561.  
  1562.     (
  1563.         (if (<> 0 (bitand install_presets install_presets_all))
  1564.  
  1565.             (copyfiles
  1566.  
  1567.                 (source "golded:goldeddata/installdata/registry/presets/standard")
  1568.                 (dest   "golded:registry/presets")
  1569.                 (all)
  1570.                 (nogauge)
  1571.             )
  1572.         )
  1573.  
  1574.         ; install menu
  1575.  
  1576.         (if (or (bitand install_presets install_presets_menu) (bitand install_presets install_presets_all))
  1577.  
  1578.             (
  1579.  
  1580.                 (set menu_language (askchoice
  1581.  
  1582.                     (prompt #golded_what_menu)
  1583.                     (help   #golded_what_menu_help)
  1584.  
  1585.                     (choices
  1586.  
  1587.                         "English"
  1588.                         "Deutsch"
  1589.                         "Italiano"
  1590.                         "Français"
  1591.                         "Svenska"
  1592.                         "Español"
  1593.                     )
  1594.  
  1595.                     (default menu_language)
  1596.                 ))
  1597.  
  1598.                 (if (= menu_language 0) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.e" ))
  1599.                 (if (= menu_language 1) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.d" ))
  1600.                 (if (= menu_language 2) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.i" ))
  1601.                 (if (= menu_language 3) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.f" ))
  1602.                 (if (= menu_language 4) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.s" ))
  1603.                 (if (= menu_language 5) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.es"))
  1604.  
  1605.                 (copyfiles
  1606.  
  1607.                     (source  menu_preset)
  1608.                     (dest    "golded:registry/presets")
  1609.                     (newname "standard.menu")
  1610.                     (nogauge)
  1611.                 )
  1612.             )
  1613.         )
  1614.  
  1615.         ; toolbar
  1616.  
  1617.         (if (or (bitand install_presets install_presets_toolbar) (bitand install_presets install_presets_all))
  1618.  
  1619.             (
  1620.                 ; install default images (4-color)
  1621.  
  1622.                 (copyfiles
  1623.  
  1624.                     (source "golded:goldeddata/installdata/color4/toolbar")
  1625.                     (dest   "golded:toolbar")
  1626.                     (all)
  1627.                     (nogauge)
  1628.                 )
  1629.  
  1630.                 ; install 16-color images over 4-color images
  1631.  
  1632.                 (if (= image_style image_style_8)
  1633.  
  1634.                     (copyfiles
  1635.  
  1636.                         (source "golded:goldeddata/installdata/color16/toolbar")
  1637.                         (dest   "golded:toolbar")
  1638.                         (all)
  1639.                         (nogauge)
  1640.                     )
  1641.                 )
  1642.  
  1643.                 (if (= menu_language 0) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.e" ))
  1644.                 (if (= menu_language 1) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.d" ))
  1645.                 (if (= menu_language 2) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.i" ))
  1646.                 (if (= menu_language 3) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.f" ))
  1647.                 (if (= menu_language 4) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.s" ))
  1648.                 (if (= menu_language 5) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.es"))
  1649.  
  1650.                 (copyfiles
  1651.  
  1652.                     (source  gad_preset)
  1653.                     (dest    "golded:registry/presets")
  1654.                     (newname "standard.gadgets")
  1655.                     (nogauge)
  1656.                 )
  1657.             )
  1658.         )
  1659.  
  1660.         ; display
  1661.  
  1662.         (if (or (bitand install_presets install_presets_display) (bitand install_presets install_presets_all))
  1663.  
  1664.             (
  1665.  
  1666.                 (set screen_mode (askchoice
  1667.  
  1668.                     (prompt #golded_screen)
  1669.                     (help   #golded_screen_help)
  1670.  
  1671.                     (choices
  1672.  
  1673.                         #golded_screen_wb
  1674.                         #golded_screen_ntsc_i
  1675.                         #golded_screen_pal_i
  1676.                     )
  1677.  
  1678.                     (default screen_workbench)
  1679.                 ))
  1680.  
  1681.                 (if (= screen_mode screen_workbench)
  1682.  
  1683.                     (copyfiles
  1684.  
  1685.                         (source  "golded:goldeddata/installdata/registry/presets/special/standard.display.wb")
  1686.                         (dest    "golded:registry/presets")
  1687.                         (newname "standard.display")
  1688.                         (nogauge)
  1689.                     )
  1690.  
  1691.                     (
  1692.                         (set screen_layout (askchoice
  1693.  
  1694.                             (prompt #golded_look_feel)
  1695.                             (help   #golded_look_feel_help)
  1696.  
  1697.                             (default 1)
  1698.  
  1699.                             (choices
  1700.  
  1701.                                 #golded_mode_blue
  1702.                                 #golded_mode_stone
  1703.                                 #golded_mode_desktop
  1704.                                 #golded_mode_designer
  1705.                             )
  1706.                         ))
  1707.  
  1708.                         (if (= screen_layout 0) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.2"))
  1709.                         (if (= screen_layout 1) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.4"))
  1710.                         (if (= screen_layout 2) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.8"))
  1711.                         (if (= screen_layout 3) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.16"))
  1712.  
  1713.                         (if (= screen_mode 1)
  1714.  
  1715.                             (set preset_display (cat preset_display "n"))
  1716.                             (set preset_display (cat preset_display "p"))
  1717.                         )
  1718.  
  1719.                         (set preset_display (cat preset_display "i"))
  1720.  
  1721.                         (copyfiles
  1722.  
  1723.                             (source  preset_display)
  1724.                             (dest    "golded:registry/presets")
  1725.                             (newname "standard.display")
  1726.                             (nogauge)
  1727.                         )
  1728.                     )
  1729.                 )
  1730.  
  1731.                 ; update display preset to use system's default fonts
  1732.  
  1733.                 (run "golded:goldeddata/installdata/bin/installfont FILE=golded:registry/presets/standard.display")
  1734.             )
  1735.         )
  1736.  
  1737.         ; keyboard
  1738.  
  1739.         (if (or (bitand install_presets install_presets_keyboard) (bitand install_presets install_presets_all))
  1740.  
  1741.             (copyfiles
  1742.  
  1743.                 (source "golded:goldeddata/installdata/registry/presets/special/standard.keyboard")
  1744.                 (dest   "golded:registry/presets")
  1745.                 (nogauge)
  1746.             )
  1747.         )
  1748.  
  1749.         ; mouse
  1750.  
  1751.         (if (or (bitand install_presets install_presets_mouse) (bitand install_presets install_presets_all))
  1752.  
  1753.             (
  1754.                 (set context_language (askchoice
  1755.  
  1756.                     (prompt #golded_what_contextmenu)
  1757.                     (help   #golded_what_menu_help)
  1758.  
  1759.                     (choices
  1760.  
  1761.                         "English"
  1762.                         "Deutsch"
  1763.                         "Spanish"
  1764.                     )
  1765.  
  1766.                     (default menu_language)
  1767.                 ))
  1768.  
  1769.                 (if (= context_language 0) (set mouse_preset "golded:goldeddata/installdata/registry/presets/special/standard.mouse.e" ))
  1770.                 (if (= context_language 1) (set mouse_preset "golded:goldeddata/installdata/registry/presets/special/standard.mouse.d" ))
  1771.                 (if (= context_language 2) (set mouse_preset "golded:goldeddata/installdata/registry/presets/special/standard.mouse.es"))
  1772.  
  1773.                 (copyfiles
  1774.  
  1775.                     (source mouse_preset)
  1776.                     (dest   "golded:registry/presets")
  1777.                     (newname "standard.mouse")
  1778.                     (nogauge)
  1779.                 )
  1780.             )
  1781.         )
  1782.     )
  1783. )
  1784.  
  1785. ; ------------------------------ Modify user-startup -------------------------
  1786.  
  1787. (if (not (exists "s:user-startup"))
  1788.  
  1789.     (message #golded_warn_userstartup)
  1790. )
  1791.  
  1792. (startup "GoldED"
  1793.  
  1794.     (prompt #golded_add_ged_assign)
  1795.     (help   #golded_add_ged_assign_help)
  1796.  
  1797.     (command  ("ASSIGN >NIL: GOLDED: \"%s\"" install_dir))
  1798. )
  1799.  
  1800. (if (bitand install_optional component_quickstarter)
  1801.  
  1802.     (startup "GED_quick"
  1803.  
  1804.         (prompt #golded_quick_resident)
  1805.         (help   #golded_quick_resident_help)
  1806.  
  1807.         (command ("resident \"%s\" pure" quickstarter))
  1808.     )
  1809. )
  1810.  
  1811. (if (bitand install_optional component_hispeed)
  1812.  
  1813.     (
  1814.         (startup "HiSpeed"
  1815.  
  1816.             (prompt #golded_hs_assign)
  1817.             (help   #golded_hs_assign_help)
  1818.  
  1819.             (command ("ASSIGN >NIL: HISPEED: GOLDED:TOOLS/HISPEED"))
  1820.         )
  1821.  
  1822.         (makeassign "HiSpeed" "golded:tools/hispeed")
  1823.     )
  1824. )
  1825.  
  1826. ; ------------------------------------- Done -----------------------------------
  1827.  
  1828. (working #golded_removing_temp_files)
  1829.  
  1830. (if (= golded_install_debug 0)
  1831.  
  1832.     (run "delete golded:goldeddata#? all quiet")
  1833. )
  1834.  
  1835. (complete 100)
  1836.  
  1837. (if (= install_mode install_mode_remove)
  1838.  
  1839.     (exit (quiet))
  1840.  
  1841.     (
  1842.         ; set return code
  1843.  
  1844.         (textfile (dest "env:GOLDEDINSTALL") (append "OK"))
  1845.  
  1846.         (exit #golded_complete)
  1847.     )
  1848. )
  1849.